home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Foxpro 2.6 {Windows} / APPABOUT.PR_ / APPABOUT.bin
Text File  |  1994-03-10  |  10KB  |  347 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 02/09/94            APPABOUT.SPR               22:22:28 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Author's Name                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1994 Company Name                         ║
  10. *       ║ Address                                                 ║
  11. *       ║ City,     Zip                                           ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18. DO CASE
  19. CASE _DOS OR _UNIX      && no UNIX records in screen
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     *       ╓─────────────────────────────────────────────────────────╖
  35.     *       ║                                                         ║
  36.     *       ║                MS-DOS Window definitions                ║
  37.     *       ║                                                         ║
  38.     *       ╙─────────────────────────────────────────────────────────╜
  39.     *
  40.     
  41.     IF NOT WEXIST("_qne1byfny")
  42.         DEFINE WINDOW _qne1byfny ;
  43.             FROM INT((SROW()-8)/2),INT((SCOL()-39)/2) ;
  44.             TO INT((SROW()-8)/2)+7,INT((SCOL()-39)/2)+38 ;
  45.             FLOAT ;
  46.             NOCLOSE ;
  47.             SHADOW ;
  48.             NOMINIMIZE ;
  49.             DOUBLE ;
  50.             COLOR SCHEME 5
  51.     ENDIF
  52.     
  53.     
  54.     *       ╓─────────────────────────────────────────────────────────╖
  55.     *       ║                                                         ║
  56.     *       ║         APPABOUT/MS-DOS Setup Code - SECTION 2          ║
  57.     *       ║                                                         ║
  58.     *       ╙─────────────────────────────────────────────────────────╜
  59.     *
  60.     
  61.     #REGION 1
  62.     SET CURSOR OFF
  63.     
  64.     
  65.     *       ╓─────────────────────────────────────────────────────────╖
  66.     *       ║                                                         ║
  67.     *       ║              APPABOUT/MS-DOS Screen Layout              ║
  68.     *       ║                                                         ║
  69.     *       ╙─────────────────────────────────────────────────────────╜
  70.     *
  71.     
  72.     #REGION 1
  73.     IF WVISIBLE("_qne1byfny")
  74.         ACTIVATE WINDOW _qne1byfny SAME
  75.     ELSE
  76.         ACTIVATE WINDOW _qne1byfny NOSHOW
  77.     ENDIF
  78.     @ 1,2 SAY "This application was generated by" ;
  79.         SIZE 1,33, 0
  80.     @ 3,13 SAY "FoxApp 2.6" ;
  81.         SIZE 1,10, 0
  82.     @ 5,2 SAY "Copyright (c) Microsoft Corp 1994" ;
  83.         SIZE 1,33, 0
  84.     
  85.     IF NOT WVISIBLE("_qne1byfny")
  86.         ACTIVATE WINDOW _qne1byfny
  87.     ENDIF
  88.     
  89.     
  90.     *       ╓─────────────────────────────────────────────────────────╖
  91.     *       ║                                                         ║
  92.     *       ║    MS-DOSREAD contains clauses from SCREEN appabout     ║
  93.     *       ║                                                         ║
  94.     *       ╙─────────────────────────────────────────────────────────╜
  95.     *
  96.     
  97.     READ CYCLE ;
  98.         MODAL
  99.     
  100.     RELEASE WINDOW _qne1byfny
  101.     
  102.     #REGION 0
  103.     IF m.talkstat = "ON"
  104.         SET TALK ON
  105.     ENDIF
  106.     IF m.compstat = "ON"
  107.         SET COMPATIBLE ON
  108.     ENDIF
  109.     
  110.     
  111.     *       ╓─────────────────────────────────────────────────────────╖
  112.     *       ║                                                         ║
  113.     *       ║              APPABOUT/MS-DOS Cleanup Code               ║
  114.     *       ║                                                         ║
  115.     *       ╙─────────────────────────────────────────────────────────╜
  116.     *
  117.     
  118.     #REGION 1
  119.     SET CURSOR ON
  120.     
  121.  
  122. CASE _MAC
  123.  
  124.     
  125.     #REGION 0
  126.     REGIONAL m.currarea, m.talkstat, m.compstat
  127.     
  128.     IF SET("TALK") = "ON"
  129.         SET TALK OFF
  130.         m.talkstat = "ON"
  131.     ELSE
  132.         m.talkstat = "OFF"
  133.     ENDIF
  134.     m.compstat = SET("COMPATIBLE")
  135.     SET COMPATIBLE FOXPLUS
  136.     
  137.     m.rborder = SET("READBORDER")
  138.     SET READBORDER OFF
  139.     
  140.     *       ╓─────────────────────────────────────────────────────────╖
  141.     *       ║                                                         ║
  142.     *       ║              Macintosh Window definitions               ║
  143.     *       ║                                                         ║
  144.     *       ╙─────────────────────────────────────────────────────────╜
  145.     *
  146.     
  147.     IF NOT WEXIST("_qne1byg5i")
  148.         DEFINE WINDOW _qne1byg5i ;
  149.             AT  0.000, 0.000  ;
  150.             SIZE 6.538,33.833 ;
  151.             FONT "Geneva", 10 ;
  152.             FLOAT ;
  153.             NOCLOSE ;
  154.             SHADOW ;
  155.             DOUBLE
  156.         MOVE WINDOW _qne1byg5i CENTER
  157.     ENDIF
  158.     
  159.     
  160.     *       ╓─────────────────────────────────────────────────────────╖
  161.     *       ║                                                         ║
  162.     *       ║        APPABOUT/Macintosh Setup Code - SECTION 2        ║
  163.     *       ║                                                         ║
  164.     *       ╙─────────────────────────────────────────────────────────╜
  165.     *
  166.     
  167.     #REGION 1
  168.     SET CURSOR OFF
  169.     
  170.     
  171.     *       ╓─────────────────────────────────────────────────────────╖
  172.     *       ║                                                         ║
  173.     *       ║            APPABOUT/Macintosh Screen Layout             ║
  174.     *       ║                                                         ║
  175.     *       ╙─────────────────────────────────────────────────────────╜
  176.     *
  177.     
  178.     #REGION 1
  179.     IF WVISIBLE("_qne1byg5i")
  180.         ACTIVATE WINDOW _qne1byg5i SAME
  181.     ELSE
  182.         ACTIVATE WINDOW _qne1byg5i NOSHOW
  183.     ENDIF
  184.     @ 1.000,2.833 SAY "This application was generated by "  ;
  185.         FONT "Geneva", 10
  186.     @ 3.000,12.833 SAY "FoxApp 2.5"  ;
  187.         FONT "Geneva", 10
  188.     @ 5.000,2.000 SAY "Copyright (c) Microsoft Corp 1993"  ;
  189.         FONT "Geneva", 10
  190.     
  191.     IF NOT WVISIBLE("_qne1byg5i")
  192.         ACTIVATE WINDOW _qne1byg5i
  193.     ENDIF
  194.     
  195.     
  196.     *       ╓─────────────────────────────────────────────────────────╖
  197.     *       ║                                                         ║
  198.     *       ║   MacintoshREAD contains clauses from SCREEN appabout   ║
  199.     *       ║                                                         ║
  200.     *       ╙─────────────────────────────────────────────────────────╜
  201.     *
  202.     
  203.     READ CYCLE ;
  204.         MODAL
  205.     
  206.     RELEASE WINDOW _qne1byg5i
  207.     
  208.     #REGION 0
  209.     
  210.     SET READBORDER &rborder
  211.     
  212.     IF m.talkstat = "ON"
  213.         SET TALK ON
  214.     ENDIF
  215.     IF m.compstat = "ON"
  216.         SET COMPATIBLE ON
  217.     ENDIF
  218.     
  219.     
  220.     *       ╓─────────────────────────────────────────────────────────╖
  221.     *       ║                                                         ║
  222.     *       ║             APPABOUT/Macintosh Cleanup Code             ║
  223.     *       ║                                                         ║
  224.     *       ╙─────────────────────────────────────────────────────────╜
  225.     *
  226.     
  227.     #REGION 1
  228.     SET CURSOR ON
  229.     
  230.  
  231. CASE _WINDOWS
  232.  
  233.     
  234.     #REGION 0
  235.     REGIONAL m.currarea, m.talkstat, m.compstat
  236.     
  237.     IF SET("TALK") = "ON"
  238.         SET TALK OFF
  239.         m.talkstat = "ON"
  240.     ELSE
  241.         m.talkstat = "OFF"
  242.     ENDIF
  243.     m.compstat = SET("COMPATIBLE")
  244.     SET COMPATIBLE FOXPLUS
  245.     
  246.     m.rborder = SET("READBORDER")
  247.     SET READBORDER OFF
  248.     
  249.     *       ╓─────────────────────────────────────────────────────────╖
  250.     *       ║                                                         ║
  251.     *       ║               Windows Window definitions                ║
  252.     *       ║                                                         ║
  253.     *       ╙─────────────────────────────────────────────────────────╜
  254.     *
  255.     
  256.     IF NOT WEXIST("_qne1bygix")
  257.         DEFINE WINDOW _qne1bygix ;
  258.             AT  0.000, 0.000  ;
  259.             SIZE 7.538,40.000 ;
  260.             FONT "MS Sans Serif", 8 ;
  261.             STYLE "B" ;
  262.             FLOAT ;
  263.             NOCLOSE ;
  264.             SHADOW ;
  265.             NOMINIMIZE ;
  266.             DOUBLE ;
  267.             COLOR RGB(,,,192,192,192)
  268.         MOVE WINDOW _qne1bygix CENTER
  269.     ENDIF
  270.     
  271.     
  272.     *       ╓─────────────────────────────────────────────────────────╖
  273.     *       ║                                                         ║
  274.     *       ║         APPABOUT/Windows Setup Code - SECTION 2         ║
  275.     *       ║                                                         ║
  276.     *       ╙─────────────────────────────────────────────────────────╜
  277.     *
  278.     
  279.     #REGION 1
  280.     SET CURSOR OFF
  281.     
  282.     
  283.     *       ╓─────────────────────────────────────────────────────────╖
  284.     *       ║                                                         ║
  285.     *       ║             APPABOUT/Windows Screen Layout              ║
  286.     *       ║                                                         ║
  287.     *       ╙─────────────────────────────────────────────────────────╜
  288.     *
  289.     
  290.     #REGION 1
  291.     IF WVISIBLE("_qne1bygix")
  292.         ACTIVATE WINDOW _qne1bygix SAME
  293.     ELSE
  294.         ACTIVATE WINDOW _qne1bygix NOSHOW
  295.     ENDIF
  296.     @ 1.000,3.667 SAY "This application was generated by"  ;
  297.         FONT "MS Sans Serif", 8 ;
  298.         STYLE "B"
  299.     @ 3.000,14.500 SAY "FoxApp 2.6"  ;
  300.         FONT "MS Sans Serif", 8 ;
  301.         STYLE "B"
  302.     @ 5.000,4.000 SAY "Copyright (c) Microsoft Corp 1994"  ;
  303.         FONT "MS Sans Serif", 8 ;
  304.         STYLE "B"
  305.     
  306.     IF NOT WVISIBLE("_qne1bygix")
  307.         ACTIVATE WINDOW _qne1bygix
  308.     ENDIF
  309.     
  310.     
  311.     *       ╓─────────────────────────────────────────────────────────╖
  312.     *       ║                                                         ║
  313.     *       ║    WindowsREAD contains clauses from SCREEN appabout    ║
  314.     *       ║                                                         ║
  315.     *       ╙─────────────────────────────────────────────────────────╜
  316.     *
  317.     
  318.     READ CYCLE ;
  319.         MODAL
  320.     
  321.     RELEASE WINDOW _qne1bygix
  322.     
  323.     #REGION 0
  324.     
  325.     SET READBORDER &rborder
  326.     
  327.     IF m.talkstat = "ON"
  328.         SET TALK ON
  329.     ENDIF
  330.     IF m.compstat = "ON"
  331.         SET COMPATIBLE ON
  332.     ENDIF
  333.     
  334.     
  335.     *       ╓─────────────────────────────────────────────────────────╖
  336.     *       ║                                                         ║
  337.     *       ║              APPABOUT/Windows Cleanup Code              ║
  338.     *       ║                                                         ║
  339.     *       ╙─────────────────────────────────────────────────────────╜
  340.     *
  341.     
  342.     #REGION 1
  343.     SET CURSOR ON
  344.     
  345.  
  346. ENDCASE
  347.